/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / prim / macros.elc.z / macros.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 34 3a 30 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:54:00 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 72 69 6d |s-20.3/l|isp/prim|
|000000a0| 2f 6d 61 63 72 6f 73 2e | 65 6c 0a 3b 3b 3b 20 65 |/macros.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 6d 61 63 72 6f 73 2e 65 |error "`|macros.e|
|000001f0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|00000200| 66 6f 72 20 45 6d 61 63 | 73 20 32 30 22 29 29 0a |for Emac|s 20")).|
|00000210| 0a 28 6f 72 20 28 62 6f | 75 6e 64 70 20 27 63 75 |.(or (bo|undp 'cu|
|00000220| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 29 |rrent-lo|ad-list)|
|00000230| 20 28 73 65 74 71 20 63 | 75 72 72 65 6e 74 2d 6c | (setq c|urrent-l|
|00000240| 6f 61 64 2d 6c 69 73 74 | 20 6e 69 6c 29 29 0a 0a |oad-list| nil))..|
|00000250| 0a 23 40 32 33 38 20 41 | 73 73 69 67 6e 20 61 20 |.#@238 A|ssign a |
|00000260| 6e 61 6d 65 20 74 6f 20 | 74 68 65 20 6c 61 73 74 |name to |the last|
|00000270| 20 6b 65 79 62 6f 61 72 | 64 20 6d 61 63 72 6f 20 | keyboar|d macro |
|00000280| 64 65 66 69 6e 65 64 2e | 0a 41 72 67 75 6d 65 6e |defined.|.Argumen|
|00000290| 74 20 53 59 4d 42 4f 4c | 20 69 73 20 74 68 65 20 |t SYMBOL| is the |
|000002a0| 6e 61 6d 65 20 74 6f 20 | 64 65 66 69 6e 65 2e 0a |name to |define..|
|000002b0| 54 68 65 20 73 79 6d 62 | 6f 6c 27 73 20 66 75 6e |The symb|ol's fun|
|000002c0| 63 74 69 6f 6e 20 64 65 | 66 69 6e 69 74 69 6f 6e |ction de|finition|
|000002d0| 20 62 65 63 6f 6d 65 73 | 20 74 68 65 20 6b 65 79 | becomes| the key|
|000002e0| 62 6f 61 72 64 20 6d 61 | 63 72 6f 20 73 74 72 69 |board ma|cro stri|
|000002f0| 6e 67 2e 0a 53 75 63 68 | 20 61 20 22 66 75 6e 63 |ng..Such| a "func|
|00000300| 74 69 6f 6e 22 20 63 61 | 6e 6e 6f 74 20 62 65 20 |tion" ca|nnot be |
|00000310| 63 61 6c 6c 65 64 20 66 | 72 6f 6d 20 4c 69 73 70 |called f|rom Lisp|
|00000320| 2c 20 62 75 74 20 69 74 | 20 69 73 20 61 20 76 61 |, but it| is a va|
|00000330| 6c 69 64 0a 65 64 69 74 | 6f 72 20 63 6f 6d 6d 61 |lid.edit|or comma|
|00000340| 6e 64 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd...(de|falias '|
|00000350| 6e 61 6d 65 2d 6c 61 73 | 74 2d 6b 62 64 2d 6d 61 |name-las|t-kbd-ma|
|00000360| 63 72 6f 20 23 5b 28 73 | 79 6d 62 6f 6c 29 20 22 |cro #[(s|ymbol) "|
|00000370| 08 ac 84 c1 c2 21 88 c3 | 0c 21 ab 90 0c 4b 3b ac |.....!..|.!...K;.|
|00000380| 8b c5 0c 4b 21 ac 85 c1 | c6 0c 5c 22 88 0c c7 98 |...K!...|..\"....|
|00000390| ab 84 c1 c8 21 88 0c 08 | 4d 87 22 20 5b 6c 61 73 |....!...|M." [las|
|000003a0| 74 2d 6b 62 64 2d 6d 61 | 63 72 6f 20 65 72 72 6f |t-kbd-ma|cro erro|
|000003b0| 72 20 22 4e 6f 20 6b 65 | 79 62 6f 61 72 64 20 6d |r "No ke|yboard m|
|000003c0| 61 63 72 6f 20 64 65 66 | 69 6e 65 64 22 20 66 62 |acro def|ined" fb|
|000003d0| 6f 75 6e 64 70 20 73 79 | 6d 62 6f 6c 20 76 65 63 |oundp sy|mbol vec|
|000003e0| 74 6f 72 70 20 22 46 75 | 6e 63 74 69 6f 6e 20 25 |torp "Fu|nction %|
|000003f0| 73 20 69 73 20 61 6c 72 | 65 61 64 79 20 64 65 66 |s is alr|eady def|
|00000400| 69 6e 65 64 20 61 6e 64 | 20 6e 6f 74 20 61 20 6b |ined and| not a k|
|00000410| 65 79 62 6f 61 72 64 20 | 6d 61 63 72 6f 2e 22 20 |eyboard |macro." |
|00000420| 22 22 20 22 4e 6f 20 63 | 6f 6d 6d 61 6e 64 20 6e |"" "No c|ommand n|
|00000430| 61 6d 65 20 67 69 76 65 | 6e 22 5d 20 33 20 28 23 |ame give|n"] 3 (#|
|00000440| 24 20 2e 20 35 39 39 29 | 20 22 53 4e 61 6d 65 20 |$ . 599)| "SName |
|00000450| 66 6f 72 20 6c 61 73 74 | 20 6b 62 64 20 6d 61 63 |for last| kbd mac|
|00000460| 72 6f 3a 20 22 5d 29 0a | 23 40 35 38 34 20 49 6e |ro: "]).|#@584 In|
|00000470| 73 65 72 74 20 69 6e 20 | 62 75 66 66 65 72 20 74 |sert in |buffer t|
|00000480| 68 65 20 64 65 66 69 6e | 69 74 69 6f 6e 20 6f 66 |he defin|ition of|
|00000490| 20 6b 62 64 20 6d 61 63 | 72 6f 20 4e 41 4d 45 2c | kbd mac|ro NAME,|
|000004a0| 20 61 73 20 4c 69 73 70 | 20 63 6f 64 65 2e 0a 4f | as Lisp| code..O|
|000004b0| 70 74 69 6f 6e 61 6c 20 | 73 65 63 6f 6e 64 20 61 |ptional |second a|
|000004c0| 72 67 20 4b 45 59 53 20 | 6d 65 61 6e 73 20 61 6c |rg KEYS |means al|
|000004d0| 73 6f 20 72 65 63 6f 72 | 64 20 74 68 65 20 6b 65 |so recor|d the ke|
|000004e0| 79 73 20 69 74 20 69 73 | 20 6f 6e 0a 28 74 68 69 |ys it is| on.(thi|
|000004f0| 73 20 69 73 20 74 68 65 | 20 70 72 65 66 69 78 20 |s is the| prefix |
|00000500| 61 72 67 75 6d 65 6e 74 | 2c 20 77 68 65 6e 20 63 |argument|, when c|
|00000510| 61 6c 6c 69 6e 67 20 69 | 6e 74 65 72 61 63 74 69 |alling i|nteracti|
|00000520| 76 65 6c 79 29 2e 0a 0a | 54 68 69 73 20 4c 69 73 |vely)...|This Lis|
|00000530| 70 20 63 6f 64 65 20 77 | 69 6c 6c 2c 20 77 68 65 |p code w|ill, whe|
|00000540| 6e 20 65 78 65 63 75 74 | 65 64 2c 20 64 65 66 69 |n execut|ed, defi|
|00000550| 6e 65 20 74 68 65 20 6b | 62 64 20 6d 61 63 72 6f |ne the k|bd macro|
|00000560| 20 77 69 74 68 20 74 68 | 65 20 73 61 6d 65 0a 64 | with th|e same.d|
|00000570| 65 66 69 6e 69 74 69 6f | 6e 20 69 74 20 68 61 73 |efinitio|n it has|
|00000580| 20 6e 6f 77 2e 20 20 49 | 66 20 79 6f 75 20 73 61 | now.  I|f you sa|
|00000590| 79 20 74 6f 20 72 65 63 | 6f 72 64 20 74 68 65 20 |y to rec|ord the |
|000005a0| 6b 65 79 73 2c 20 74 68 | 65 20 4c 69 73 70 20 63 |keys, th|e Lisp c|
|000005b0| 6f 64 65 0a 77 69 6c 6c | 20 61 6c 73 6f 20 72 65 |ode.will| also re|
|000005c0| 62 69 6e 64 20 74 68 6f | 73 65 20 6b 65 79 73 20 |bind tho|se keys |
|000005d0| 74 6f 20 74 68 65 20 6d | 61 63 72 6f 2e 20 20 4f |to the m|acro.  O|
|000005e0| 6e 6c 79 20 67 6c 6f 62 | 61 6c 20 6b 65 79 20 62 |nly glob|al key b|
|000005f0| 69 6e 64 69 6e 67 73 0a | 61 72 65 20 72 65 63 6f |indings.|are reco|
|00000600| 72 64 65 64 20 73 69 6e | 63 65 20 65 78 65 63 75 |rded sin|ce execu|
|00000610| 74 69 6e 67 20 74 68 69 | 73 20 4c 69 73 70 20 63 |ting thi|s Lisp c|
|00000620| 6f 64 65 20 61 6c 77 61 | 79 73 20 6d 61 6b 65 73 |ode alwa|ys makes|
|00000630| 20 67 6c 6f 62 61 6c 0a | 62 69 6e 64 69 6e 67 73 | global.|bindings|
|00000640| 2e 0a 0a 54 6f 20 73 61 | 76 65 20 61 20 6b 62 64 |...To sa|ve a kbd|
|00000650| 20 6d 61 63 72 6f 2c 20 | 76 69 73 69 74 20 61 20 | macro, |visit a |
|00000660| 66 69 6c 65 20 6f 66 20 | 4c 69 73 70 20 63 6f 64 |file of |Lisp cod|
|00000670| 65 20 73 75 63 68 20 61 | 73 20 79 6f 75 72 20 60 |e such a|s your `|
|00000680| 7e 2f 2e 65 6d 61 63 73 | 27 2c 0a 75 73 65 20 74 |~/.emacs|',.use t|
|00000690| 68 69 73 20 63 6f 6d 6d | 61 6e 64 2c 20 61 6e 64 |his comm|and, and|
|000006a0| 20 74 68 65 6e 20 73 61 | 76 65 20 74 68 65 20 66 | then sa|ve the f|
|000006b0| 69 6c 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ile...(d|efalias |
|000006c0| 27 69 6e 73 65 72 74 2d | 6b 62 64 2d 6d 61 63 72 |'insert-|kbd-macr|
|000006d0| 6f 20 23 5b 28 6d 61 63 | 72 6f 6e 61 6d 65 20 26 |o #[(mac|roname &|
|000006e0| 6f 70 74 69 6f 6e 61 6c | 20 6b 65 79 73 29 20 22 |optional| keys) "|
|000006f0| c0 19 c2 0b 21 c4 98 ab | 88 c5 20 11 c6 63 88 aa |....!...|.. ..c..|
|00000700| 8a c5 0b 21 11 c7 c8 0b | 5c 22 63 88 09 47 c9 56 |...!....|\"c..G.V|
|00000710| ab 85 ca 63 88 aa 83 cb | 63 88 cc 09 70 5c 22 88 |...c....|c...p\".|
|00000720| cd 63 88 0e 0e ad 9c cf | 0b 21 1e 0e 0e 0e ad 92 |.c......|.!......|
|00000730| c7 d0 0e 0e 40 0b 23 63 | 88 0e 0e 89 41 16 0e 88 |....@.#c|....A...|
|00000740| aa 6a 29 29 87 22 20 5b | 6e 69 6c 20 64 65 66 69 |.j))." [|nil defi|
|00000750| 6e 69 74 69 6f 6e 20 73 | 79 6d 62 6f 6c 2d 6e 61 |nition s|ymbol-na|
|00000760| 6d 65 20 6d 61 63 72 6f | 6e 61 6d 65 20 22 22 20 |me macro|name "" |
|00000770| 66 6f 72 6d 61 74 2d 6b | 62 64 2d 6d 61 63 72 6f |format-k|bd-macro|
|00000780| 20 22 28 73 65 74 71 20 | 6c 61 73 74 2d 6b 62 64 | "(setq |last-kbd|
|00000790| 2d 6d 61 63 72 6f 22 20 | 66 6f 72 6d 61 74 20 22 |-macro" |format "|
|000007a0| 28 64 65 66 61 6c 69 61 | 73 20 27 25 73 22 20 35 |(defalia|s '%s" 5|
|000007b0| 30 20 22 20 28 72 65 61 | 64 2d 6b 62 64 2d 6d 61 |0 " (rea|d-kbd-ma|
|000007c0| 63 72 6f 5c 6e 22 20 22 | 5c 6e 20 20 28 72 65 61 |cro\n" "|\n  (rea|
|000007d0| 64 2d 6b 62 64 2d 6d 61 | 63 72 6f 20 22 20 70 72 |d-kbd-ma|cro " pr|
|000007e0| 69 6e 31 20 22 29 29 5c | 6e 22 20 6b 65 79 73 20 |in1 "))\|n" keys |
|000007f0| 77 68 65 72 65 2d 69 73 | 2d 69 6e 74 65 72 6e 61 |where-is|-interna|
|00000800| 6c 20 22 28 67 6c 6f 62 | 61 6c 2d 73 65 74 2d 6b |l "(glob|al-set-k|
|00000810| 65 79 20 25 53 20 27 25 | 73 29 5c 6e 22 5d 20 34 |ey %S '%|s)\n"] 4|
|00000820| 20 28 23 24 20 2e 20 31 | 31 33 34 29 20 22 43 49 | (#$ . 1|134) "CI|
|00000830| 6e 73 65 72 74 20 6b 62 | 64 20 6d 61 63 72 6f 20 |nsert kb|d macro |
|00000840| 28 6e 61 6d 65 29 3a 20 | 5c 6e 50 22 5d 29 0a 23 |(name): |\nP"]).#|
|00000850| 40 35 39 32 20 51 75 65 | 72 79 20 75 73 65 72 20 |@592 Que|ry user |
|00000860| 64 75 72 69 6e 67 20 6b | 62 64 20 6d 61 63 72 6f |during k|bd macro|
|00000870| 20 65 78 65 63 75 74 69 | 6f 6e 2e 0a 57 69 74 68 | executi|on..With|
|00000880| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|00000890| 2c 20 65 6e 74 65 72 73 | 20 72 65 63 75 72 73 69 |, enters| recursi|
|000008a0| 76 65 20 65 64 69 74 2c | 0a 20 72 65 61 64 69 6e |ve edit,|. readin|
|000008b0| 67 20 6b 65 79 62 6f 61 | 72 64 20 63 6f 6d 6d 61 |g keyboa|rd comma|
|000008c0| 6e 64 73 20 65 76 65 6e | 20 77 69 74 68 69 6e 20 |nds even| within |
|000008d0| 61 20 6b 62 64 20 6d 61 | 63 72 6f 2e 0a 20 59 6f |a kbd ma|cro.. Yo|
|000008e0| 75 20 63 61 6e 20 67 69 | 76 65 20 64 69 66 66 65 |u can gi|ve diffe|
|000008f0| 72 65 6e 74 20 63 6f 6d | 6d 61 6e 64 73 20 65 61 |rent com|mands ea|
|00000900| 63 68 20 74 69 6d 65 20 | 74 68 65 20 6d 61 63 72 |ch time |the macr|
|00000910| 6f 20 65 78 65 63 75 74 | 65 73 2e 0a 57 69 74 68 |o execut|es..With|
|00000920| 6f 75 74 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |out pref|ix argum|
|00000930| 65 6e 74 2c 20 61 73 6b | 73 20 77 68 65 74 68 65 |ent, ask|s whethe|
|00000940| 72 20 74 6f 20 63 6f 6e | 74 69 6e 75 65 20 72 75 |r to con|tinue ru|
|00000950| 6e 6e 69 6e 67 20 74 68 | 65 20 6d 61 63 72 6f 2e |nning th|e macro.|
|00000960| 0a 59 6f 75 72 20 6f 70 | 74 69 6f 6e 73 20 61 72 |.Your op|tions ar|
|00000970| 65 3a 20 5c 3c 71 75 65 | 72 79 2d 72 65 70 6c 61 |e: \<que|ry-repla|
|00000980| 63 65 2d 6d 61 70 3e 0a | 5c 5b 61 63 74 5d 09 46 |ce-map>.|\[act].F|
|00000990| 69 6e 69 73 68 20 74 68 | 69 73 20 69 74 65 72 61 |inish th|is itera|
|000009a0| 74 69 6f 6e 20 6e 6f 72 | 6d 61 6c 6c 79 20 61 6e |tion nor|mally an|
|000009b0| 64 20 63 6f 6e 74 69 6e | 75 65 20 77 69 74 68 20 |d contin|ue with |
|000009c0| 74 68 65 20 6e 65 78 74 | 2e 0a 5c 5b 73 6b 69 70 |the next|..\[skip|
|000009d0| 5d 09 53 6b 69 70 20 74 | 68 65 20 72 65 73 74 20 |].Skip t|he rest |
|000009e0| 6f 66 20 74 68 69 73 20 | 69 74 65 72 61 74 69 6f |of this |iteratio|
|000009f0| 6e 2c 20 61 6e 64 20 73 | 74 61 72 74 20 74 68 65 |n, and s|tart the|
|00000a00| 20 6e 65 78 74 2e 0a 5c | 5b 65 78 69 74 5d 09 53 | next..\|[exit].S|
|00000a10| 74 6f 70 20 74 68 65 20 | 6d 61 63 72 6f 20 65 6e |top the |macro en|
|00000a20| 74 69 72 65 6c 79 20 72 | 69 67 68 74 20 6e 6f 77 |tirely r|ight now|
|00000a30| 2e 0a 5c 5b 72 65 63 65 | 6e 74 65 72 5d 09 52 65 |..\[rece|nter].Re|
|00000a40| 64 69 73 70 6c 61 79 20 | 74 68 65 20 66 72 61 6d |display |the fram|
|00000a50| 65 2c 20 74 68 65 6e 20 | 61 73 6b 20 61 67 61 69 |e, then |ask agai|
|00000a60| 6e 2e 0a 5c 5b 65 64 69 | 74 5d 09 45 6e 74 65 72 |n..\[edi|t].Enter|
|00000a70| 20 72 65 63 75 72 73 69 | 76 65 20 65 64 69 74 3b | recursi|ve edit;|
|00000a80| 20 61 73 6b 20 61 67 61 | 69 6e 20 77 68 65 6e 20 | ask aga|in when |
|00000a90| 79 6f 75 20 65 78 69 74 | 20 66 72 6f 6d 20 74 68 |you exit| from th|
|00000aa0| 61 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |at...(de|falias '|
|00000ab0| 6b 62 64 2d 6d 61 63 72 | 6f 2d 71 75 65 72 79 20 |kbd-macr|o-query |
|00000ac0| 23 5b 28 66 6c 61 67 29 | 20 22 08 ac 87 09 ac 84 |#[(flag)| "......|
|00000ad0| c2 c3 21 88 0c ab 88 c5 | 89 19 18 c6 20 2a 87 08 |..!.....|.... *..|
|00000ae0| 85 b1 00 c7 c8 c9 21 1e | 5c 6e 1e 0b 0e 0b 85 b0 |......!.|\n......|
|00000af0| 00 c5 89 19 18 cc cd 0e | 5c 6e 5c 22 88 ce 20 2a |........|\n\".. *|
|00000b00| c5 1e 0f 1e 10 d1 0e 10 | 21 16 10 d2 0e 13 0e 10 |........|!.......|
|00000b10| 5c 22 89 16 0f d4 61 ab | 85 c5 16 0b aa dc 0e 0f |\"....a.|........|
|00000b20| d5 61 ab 87 c5 16 0b d6 | 10 aa cf 0e 0f d7 61 ab |.a......|......a.|
|00000b30| 87 c5 16 0b c7 10 aa c2 | 0e 0f d8 61 ab 86 d8 c5 |........|...a....|
|00000b40| 21 88 aa b6 0e 0f d9 61 | ab 8a c5 89 19 18 c6 20 |!......a|....... |
|00000b50| 88 2a aa a6 0e 0f da 61 | ab 85 c7 16 1b aa 9b 0e |.*.....a|........|
|00000b60| 0f dc 61 ac 83 dd 20 88 | de 90 df c8 e0 21 21 88 |..a... .|.....!!.|
|00000b70| 8a 0e 21 71 88 e2 20 29 | 91 88 2a 82 21 00 2a 87 |..!q.. )|..*.!.*.|
|00000b80| 22 20 5b 65 78 65 63 75 | 74 69 6e 67 2d 6b 62 64 |" [execu|ting-kbd|
|00000b90| 2d 6d 61 63 72 6f 20 64 | 65 66 69 6e 69 6e 67 2d |-macro d|efining-|
|00000ba0| 6b 62 64 2d 6d 61 63 72 | 6f 20 65 72 72 6f 72 20 |kbd-macr|o error |
|00000bb0| 22 4e 6f 74 20 64 65 66 | 69 6e 69 6e 67 20 6f 72 |"Not def|ining or|
|00000bc0| 20 65 78 65 63 75 74 69 | 6e 67 20 6b 62 64 20 6d | executi|ng kbd m|
|00000bd0| 61 63 72 6f 22 20 66 6c | 61 67 20 6e 69 6c 20 72 |acro" fl|ag nil r|
|00000be0| 65 63 75 72 73 69 76 65 | 2d 65 64 69 74 20 74 20 |ecursive|-edit t |
|00000bf0| 73 75 62 73 74 69 74 75 | 74 65 2d 63 6f 6d 6d 61 |substitu|te-comma|
|00000c00| 6e 64 2d 6b 65 79 73 20 | 22 50 72 6f 63 65 65 64 |nd-keys |"Proceed|
|00000c10| 20 77 69 74 68 20 6d 61 | 63 72 6f 3f 5c 5c 3c 71 | with ma|cro?\\<q|
|00000c20| 75 65 72 79 2d 72 65 70 | 6c 61 63 65 2d 6d 61 70 |uery-rep|lace-map|
|00000c30| 3e 20 28 5c 5c 5b 61 63 | 74 5d 2c 20 5c 5c 5b 73 |> (\\[ac|t], \\[s|
|00000c40| 6b 69 70 5d 2c 20 5c 5c | 5b 65 78 69 74 5d 2c 20 |kip], \\|[exit], |
|00000c50| 5c 5c 5b 72 65 63 65 6e | 74 65 72 5d 2c 20 5c 5c |\\[recen|ter], \\|
|00000c60| 5b 65 64 69 74 5d 29 20 | 22 20 6d 73 67 20 6c 6f |[edit]) |" msg lo|
|00000c70| 6f 70 20 6d 65 73 73 61 | 67 65 20 22 25 73 22 20 |op messa|ge "%s" |
|00000c80| 72 65 61 64 2d 63 68 61 | 72 2d 65 78 63 6c 75 73 |read-cha|r-exclus|
|00000c90| 69 76 65 20 64 65 66 20 | 6b 65 79 20 76 65 63 74 |ive def |key vect|
|00000ca0| 6f 72 20 6c 6f 6f 6b 75 | 70 2d 6b 65 79 20 71 75 |or looku|p-key qu|
|00000cb0| 65 72 79 2d 72 65 70 6c | 61 63 65 2d 6d 61 70 20 |ery-repl|ace-map |
|00000cc0| 61 63 74 20 73 6b 69 70 | 20 22 22 20 65 78 69 74 |act skip| "" exit|
|00000cd0| 20 72 65 63 65 6e 74 65 | 72 20 65 64 69 74 20 71 | recente|r edit q|
|00000ce0| 75 69 74 20 71 75 69 74 | 2d 66 6c 61 67 20 68 65 |uit quit|-flag he|
|00000cf0| 6c 70 20 64 69 6e 67 20 | 22 2a 48 65 6c 70 2a 22 |lp ding |"*Help*"|
|00000d00| 20 70 72 69 6e 63 20 22 | 53 70 65 63 69 66 79 20 | princ "|Specify |
|00000d10| 68 6f 77 20 74 6f 20 70 | 72 6f 63 65 65 64 20 77 |how to p|roceed w|
|00000d20| 69 74 68 20 6b 65 79 62 | 6f 61 72 64 20 6d 61 63 |ith keyb|oard mac|
|00000d30| 72 6f 20 65 78 65 63 75 | 74 69 6f 6e 2e 5c 6e 50 |ro execu|tion.\nP|
|00000d40| 6f 73 73 69 62 69 6c 69 | 74 69 65 73 3a 20 5c 5c |ossibili|ties: \\|
|00000d50| 3c 71 75 65 72 79 2d 72 | 65 70 6c 61 63 65 2d 6d |<query-r|eplace-m|
|00000d60| 61 70 3e 5c 6e 5c 5c 5b | 61 63 74 5d 09 46 69 6e |ap>\n\\[|act].Fin|
|00000d70| 69 73 68 20 74 68 69 73 | 20 69 74 65 72 61 74 69 |ish this| iterati|
|00000d80| 6f 6e 20 6e 6f 72 6d 61 | 6c 6c 79 20 61 6e 64 20 |on norma|lly and |
|00000d90| 63 6f 6e 74 69 6e 75 65 | 20 77 69 74 68 20 74 68 |continue| with th|
|00000da0| 65 20 6e 65 78 74 2e 5c | 6e 5c 5c 5b 73 6b 69 70 |e next.\|n\\[skip|
|00000db0| 5d 09 53 6b 69 70 20 74 | 68 65 20 72 65 73 74 20 |].Skip t|he rest |
|00000dc0| 6f 66 20 74 68 69 73 20 | 69 74 65 72 61 74 69 6f |of this |iteratio|
|00000dd0| 6e 2c 20 61 6e 64 20 73 | 74 61 72 74 20 74 68 65 |n, and s|tart the|
|00000de0| 20 6e 65 78 74 2e 5c 6e | 5c 5c 5b 65 78 69 74 5d | next.\n|\\[exit]|
|00000df0| 09 53 74 6f 70 20 74 68 | 65 20 6d 61 63 72 6f 20 |.Stop th|e macro |
|00000e00| 65 6e 74 69 72 65 6c 79 | 20 72 69 67 68 74 20 6e |entirely| right n|
|00000e10| 6f 77 2e 5c 6e 5c 5c 5b | 72 65 63 65 6e 74 65 72 |ow.\n\\[|recenter|
|00000e20| 5d 09 52 65 64 69 73 70 | 6c 61 79 20 74 68 65 20 |].Redisp|lay the |
|00000e30| 66 72 61 6d 65 2c 20 74 | 68 65 6e 20 61 73 6b 20 |frame, t|hen ask |
|00000e40| 61 67 61 69 6e 2e 5c 6e | 5c 5c 5b 65 64 69 74 5d |again.\n|\\[edit]|
|00000e50| 09 45 6e 74 65 72 20 72 | 65 63 75 72 73 69 76 65 |.Enter r|ecursive|
|00000e60| 20 65 64 69 74 3b 20 61 | 73 6b 20 61 67 61 69 6e | edit; a|sk again|
|00000e70| 20 77 68 65 6e 20 79 6f | 75 20 65 78 69 74 20 66 | when yo|u exit f|
|00000e80| 72 6f 6d 20 74 68 61 74 | 2e 22 20 73 74 61 6e 64 |rom that|." stand|
|00000e90| 61 72 64 2d 6f 75 74 70 | 75 74 20 68 65 6c 70 2d |ard-outp|ut help-|
|00000ea0| 6d 6f 64 65 5d 20 35 20 | 28 23 24 20 2e 20 32 31 |mode] 5 |(#$ . 21|
|00000eb0| 33 33 29 20 22 50 22 5d | 29 0a 23 40 31 33 31 34 |33) "P"]|).#@1314|
|00000ec0| 20 46 6f 72 20 65 61 63 | 68 20 63 6f 6d 70 6c 65 | For eac|h comple|
|00000ed0| 74 65 20 6c 69 6e 65 20 | 62 65 74 77 65 65 6e 20 |te line |between |
|00000ee0| 70 6f 69 6e 74 20 61 6e | 64 20 6d 61 72 6b 2c 20 |point an|d mark, |
|00000ef0| 6d 6f 76 65 20 74 6f 20 | 74 68 65 20 62 65 67 69 |move to |the begi|
|00000f00| 6e 6e 69 6e 67 0a 6f 66 | 20 74 68 65 20 6c 69 6e |nning.of| the lin|
|00000f10| 65 2c 20 61 6e 64 20 72 | 75 6e 20 74 68 65 20 6c |e, and r|un the l|
|00000f20| 61 73 74 20 6b 65 79 62 | 6f 61 72 64 20 6d 61 63 |ast keyb|oard mac|
|00000f30| 72 6f 2e 0a 0a 57 68 65 | 6e 20 63 61 6c 6c 65 64 |ro...Whe|n called|
|00000f40| 20 66 72 6f 6d 20 6c 69 | 73 70 2c 20 74 68 69 73 | from li|sp, this|
|00000f50| 20 66 75 6e 63 74 69 6f | 6e 20 74 61 6b 65 73 20 | functio|n takes |
|00000f60| 74 77 6f 20 61 72 67 75 | 6d 65 6e 74 73 20 54 4f |two argu|ments TO|
|00000f70| 50 20 61 6e 64 0a 42 4f | 54 54 4f 4d 2c 20 64 65 |P and.BO|TTOM, de|
|00000f80| 73 63 72 69 62 69 6e 67 | 20 74 68 65 20 63 75 72 |scribing| the cur|
|00000f90| 72 65 6e 74 20 72 65 67 | 69 6f 6e 2e 20 20 54 4f |rent reg|ion.  TO|
|00000fa0| 50 20 6d 75 73 74 20 62 | 65 20 62 65 66 6f 72 65 |P must b|e before|
|00000fb0| 20 42 4f 54 54 4f 4d 2e | 0a 54 68 65 20 6f 70 74 | BOTTOM.|.The opt|
|00000fc0| 69 6f 6e 61 6c 20 74 68 | 69 72 64 20 61 72 67 75 |ional th|ird argu|
|00000fd0| 6d 65 6e 74 20 4d 41 43 | 52 4f 20 73 70 65 63 69 |ment MAC|RO speci|
|00000fe0| 66 69 65 73 20 61 20 6b | 65 79 62 6f 61 72 64 20 |fies a k|eyboard |
|00000ff0| 6d 61 63 72 6f 20 74 6f | 0a 65 78 65 63 75 74 65 |macro to|.execute|
|00001000| 2e 0a 0a 54 68 69 73 20 | 69 73 20 75 73 65 66 75 |...This |is usefu|
|00001010| 6c 20 66 6f 72 20 71 75 | 6f 74 69 6e 67 20 6f 72 |l for qu|oting or|
|00001020| 20 75 6e 71 75 6f 74 69 | 6e 67 20 69 6e 63 6c 75 | unquoti|ng inclu|
|00001030| 64 65 64 20 74 65 78 74 | 2c 20 61 64 64 69 6e 67 |ded text|, adding|
|00001040| 20 61 6e 64 0a 72 65 6d | 6f 76 69 6e 67 20 63 6f | and.rem|oving co|
|00001050| 6d 6d 65 6e 74 73 2c 20 | 6f 72 20 70 72 6f 64 75 |mments, |or produ|
|00001060| 63 69 6e 67 20 74 61 62 | 6c 65 73 20 77 68 65 72 |cing tab|les wher|
|00001070| 65 20 74 68 65 20 65 6e | 74 72 69 65 73 20 61 72 |e the en|tries ar|
|00001080| 65 20 72 65 67 75 6c 61 | 72 2e 0a 0a 46 6f 72 20 |e regula|r...For |
|00001090| 65 78 61 6d 70 6c 65 2c | 20 69 6e 20 55 73 65 6e |example,| in Usen|
|000010a0| 65 74 20 61 72 74 69 63 | 6c 65 73 2c 20 73 65 63 |et artic|les, sec|
|000010b0| 74 69 6f 6e 73 20 6f 66 | 20 74 65 78 74 20 71 75 |tions of| text qu|
|000010c0| 6f 74 65 64 20 66 72 6f | 6d 20 61 6e 6f 74 68 65 |oted fro|m anothe|
|000010d0| 72 0a 61 75 74 68 6f 72 | 20 61 72 65 20 69 6e 64 |r.author| are ind|
|000010e0| 65 6e 74 65 64 2c 20 6f | 72 20 68 61 76 65 20 65 |ented, o|r have e|
|000010f0| 61 63 68 20 6c 69 6e 65 | 20 73 74 61 72 74 20 77 |ach line| start w|
|00001100| 69 74 68 20 60 3e 27 2e | 20 20 54 6f 20 71 75 6f |ith `>'.|  To quo|
|00001110| 74 65 20 61 0a 73 65 63 | 74 69 6f 6e 20 6f 66 20 |te a.sec|tion of |
|00001120| 74 65 78 74 2c 20 64 65 | 66 69 6e 65 20 61 20 6b |text, de|fine a k|
|00001130| 65 79 62 6f 61 72 64 20 | 6d 61 63 72 6f 20 77 68 |eyboard |macro wh|
|00001140| 69 63 68 20 69 6e 73 65 | 72 74 73 20 60 3e 27 2c |ich inse|rts `>',|
|00001150| 20 70 75 74 20 70 6f 69 | 6e 74 0a 61 6e 64 20 6d | put poi|nt.and m|
|00001160| 61 72 6b 20 61 74 20 6f | 70 70 6f 73 69 74 65 20 |ark at o|pposite |
|00001170| 65 6e 64 73 20 6f 66 20 | 74 68 65 20 71 75 6f 74 |ends of |the quot|
|00001180| 65 64 20 73 65 63 74 69 | 6f 6e 2c 20 61 6e 64 20 |ed secti|on, and |
|00001190| 75 73 65 0a 60 5c 5b 61 | 70 70 6c 79 2d 6d 61 63 |use.`\[a|pply-mac|
|000011a0| 72 6f 2d 74 6f 2d 72 65 | 67 69 6f 6e 2d 6c 69 6e |ro-to-re|gion-lin|
|000011b0| 65 73 5d 27 20 74 6f 20 | 6d 61 72 6b 20 74 68 65 |es]' to |mark the|
|000011c0| 20 65 6e 74 69 72 65 20 | 73 65 63 74 69 6f 6e 2e | entire |section.|
|000011d0| 0a 0a 53 75 70 70 6f 73 | 65 20 79 6f 75 20 77 61 |..Suppos|e you wa|
|000011e0| 6e 74 65 64 20 74 6f 20 | 62 75 69 6c 64 20 61 20 |nted to |build a |
|000011f0| 6b 65 79 77 6f 72 64 20 | 74 61 62 6c 65 20 69 6e |keyword |table in|
|00001200| 20 43 20 77 68 65 72 65 | 20 65 61 63 68 20 65 6e | C where| each en|
|00001210| 74 72 79 0a 6c 6f 6f 6b | 65 64 20 6c 69 6b 65 20 |try.look|ed like |
|00001220| 74 68 69 73 3a 0a 0a 20 | 20 20 20 7b 20 22 66 6f |this:.. |   { "fo|
|00001230| 6f 22 2c 20 66 6f 6f 5f | 64 61 74 61 2c 20 66 6f |o", foo_|data, fo|
|00001240| 6f 5f 66 75 6e 63 74 69 | 6f 6e 20 7d 2c 20 0a 20 |o_functi|on }, . |
|00001250| 20 20 20 7b 20 22 62 61 | 72 22 2c 20 62 61 72 5f |   { "ba|r", bar_|
|00001260| 64 61 74 61 2c 20 62 61 | 72 5f 66 75 6e 63 74 69 |data, ba|r_functi|
|00001270| 6f 6e 20 7d 2c 0a 20 20 | 20 20 7b 20 22 62 61 7a |on },.  |  { "baz|
|00001280| 22 2c 20 62 61 7a 5f 64 | 61 74 61 2c 20 62 61 7a |", baz_d|ata, baz|
|00001290| 5f 66 75 6e 63 74 69 6f | 6e 20 7d 2c 0a 0a 59 6f |_functio|n },..Yo|
|000012a0| 75 20 63 6f 75 6c 64 20 | 65 6e 74 65 72 20 74 68 |u could |enter th|
|000012b0| 65 20 6e 61 6d 65 73 20 | 69 6e 20 74 68 69 73 20 |e names |in this |
|000012c0| 66 6f 72 6d 61 74 3a 0a | 0a 20 20 20 20 66 6f 6f |format:.|.    foo|
|000012d0| 0a 20 20 20 20 62 61 72 | 0a 20 20 20 20 62 61 7a |.    bar|.    baz|
|000012e0| 0a 0a 61 6e 64 20 77 72 | 69 74 65 20 61 20 6d 61 |..and wr|ite a ma|
|000012f0| 63 72 6f 20 74 6f 20 6d | 61 73 73 61 67 65 20 61 |cro to m|assage a|
|00001300| 20 77 6f 72 64 20 69 6e | 74 6f 20 61 20 74 61 62 | word in|to a tab|
|00001310| 6c 65 20 65 6e 74 72 79 | 3a 0a 0a 20 20 20 20 5c |le entry|:..    \|
|00001320| 43 2d 78 20 28 0a 20 20 | 20 20 20 20 20 5c 4d 2d |C-x (.  |     \M-|
|00001330| 64 20 7b 20 22 5c 43 2d | 79 22 2c 20 5c 43 2d 79 |d { "\C-|y", \C-y|
|00001340| 5f 64 61 74 61 2c 20 5c | 43 2d 79 5f 66 75 6e 63 |_data, \|C-y_func|
|00001350| 74 69 6f 6e 20 7d 2c 0a | 20 20 20 20 5c 43 2d 78 |tion },.|    \C-x|
|00001360| 20 29 0a 0a 61 6e 64 20 | 74 68 65 6e 20 73 65 6c | )..and |then sel|
|00001370| 65 63 74 20 74 68 65 20 | 72 65 67 69 6f 6e 20 6f |ect the |region o|
|00001380| 66 20 75 6e 2d 74 61 62 | 6c 69 66 69 65 64 20 6e |f un-tab|lified n|
|00001390| 61 6d 65 73 20 61 6e 64 | 20 75 73 65 0a 60 5c 5b |ames and| use.`\[|
|000013a0| 61 70 70 6c 79 2d 6d 61 | 63 72 6f 2d 74 6f 2d 72 |apply-ma|cro-to-r|
|000013b0| 65 67 69 6f 6e 2d 6c 69 | 6e 65 73 5d 27 20 74 6f |egion-li|nes]' to|
|000013c0| 20 62 75 69 6c 64 20 74 | 68 65 20 74 61 62 6c 65 | build t|he table|
|000013d0| 20 66 72 6f 6d 20 74 68 | 65 20 6e 61 6d 65 73 2e | from th|e names.|
|000013e0| 0a 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 70 |...(defa|lias 'ap|
|000013f0| 70 6c 79 2d 6d 61 63 72 | 6f 2d 74 6f 2d 72 65 67 |ply-macr|o-to-reg|
|00001400| 69 6f 6e 2d 6c 69 6e 65 | 73 20 23 5b 28 74 6f 70 |ion-line|s #[(top|
|00001410| 20 62 6f 74 74 6f 6d 20 | 26 6f 70 74 69 6f 6e 61 | bottom |&optiona|
|00001420| 6c 20 6d 61 63 72 6f 29 | 20 22 08 ac 89 09 ac 84 |l macro)| "......|
|00001430| c2 c3 21 88 09 10 8a 0c | 62 88 c5 79 88 c6 20 c7 |..!.....|b..y.. .|
|00001440| 1e 08 1e 09 0e 5c 6e 62 | 88 6e ac 83 cb 79 88 c6 |.....\nb|.n...y..|
|00001450| 20 16 08 0e 08 0e 09 57 | ab 9a 0e 08 62 88 8a cb | ......W|....b...|
|00001460| 79 88 0e 08 60 c7 93 88 | 29 8a cc 08 ae 81 09 21 |y...`...|)......!|
|00001470| 88 29 aa 5f 0e 09 c7 89 | 93 88 0e 08 c7 89 93 2b |.)._....|.......+|
|00001480| 87 22 20 5b 6d 61 63 72 | 6f 20 6c 61 73 74 2d 6b |." [macr|o last-k|
|00001490| 62 64 2d 6d 61 63 72 6f | 20 65 72 72 6f 72 20 22 |bd-macro| error "|
|000014a0| 4e 6f 20 6b 65 79 62 6f | 61 72 64 20 6d 61 63 72 |No keybo|ard macr|
|000014b0| 6f 20 68 61 73 20 62 65 | 65 6e 20 64 65 66 69 6e |o has be|en defin|
|000014c0| 65 64 2e 22 20 62 6f 74 | 74 6f 6d 20 30 20 70 6f |ed." bot|tom 0 po|
|000014d0| 69 6e 74 2d 6d 61 72 6b | 65 72 20 6e 69 6c 20 6e |int-mark|er nil n|
|000014e0| 65 78 74 2d 6c 69 6e 65 | 2d 6d 61 72 6b 65 72 20 |ext-line|-marker |
|000014f0| 65 6e 64 2d 6d 61 72 6b | 65 72 20 74 6f 70 20 31 |end-mark|er top 1|
|00001500| 20 65 78 65 63 75 74 65 | 2d 6b 62 64 2d 6d 61 63 | execute|-kbd-mac|
|00001510| 72 6f 5d 20 33 20 28 23 | 24 20 2e 20 33 37 37 37 |ro] 3 (#|$ . 3777|
|00001520| 29 20 22 72 22 5d 29 0a |                         |) "r"]).|        |
+--------+-------------------------+-------------------------+--------+--------+